home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / drivers / 1fah601.arj / INSTALL.DAT < prev    next >
Text File  |  1994-01-11  |  43KB  |  1,854 lines
  1. /*-
  2.   File Name: install.dat
  3.  
  4.   History: Robert Gilsdorf (August 27, 1992) File created
  5.  
  6.   Description: This is a script file that automates the installation process 
  7.            of the Fahrenheit VA display drivers.
  8. */
  9. @DefineProject
  10.     @Name           = "Fahrenheit"
  11.     @Version        = "6.0"
  12.     @Immediate      = 1 
  13.     @Subdir         = "\\"
  14.     @OutDrive       = C
  15.     @AssumeHardDisk = 1
  16. @EndProject
  17.  
  18. @DefineVars
  19.  @Dir @orcdir            = "\\ORCHID\\"
  20.  @Qstring @msgDDI       = "Display Driver Installation"
  21.  @Qstring @msgDrive     = "Please Select Destination Drive:"
  22.  @Qstring @msgDir       = "Please Enter a Directory name or select ENTER to accept default."
  23.  @Qstring @msgPSAV      = "Please Select Version:"
  24.  @Qstring @msgPSAA      = "Please Select an Application:"
  25.  @Qstring @msgPSAO      = "Please Select an Option:"
  26.  @Qstring @msgDDNE      = "does not exist."
  27.  @Qstring @msgCont      = "If you choose to continue, one will be created."
  28.  @Qstring @msgNoFile    = "Some files are missing in your input directory:"
  29.  @Qstring @msgNPI       = "may not be properly installed."
  30.  @Qstring @Reenter      = " Enter Again"
  31.  @Qstring @Cont         = "  Continue  "
  32.  @Qstring @NameWin      = "Microsoft Windows"
  33.  @Qstring @NameCADsys   = "Computer Aided Design"
  34.  @Qstring @NameACAD     = "AutoCAD"
  35.  @Qstring @NameCADKey   = "CADKey"
  36.  @Qstring @NameCADvance = "CADVance"
  37.  @Qstring @NameDataCAD  = "DataCAD"
  38.  @Qstring @NameGenCADD  = "Generic CADD"
  39.  @Qstring @NameMicroCAD = "MicroStation"
  40.  @Qstring @NameVersaCAD = "VersaCAD"
  41.  @Qstring @NameDesk     = "Desktop Publishing"
  42.  @Qstring @NameGem      = "GEM Desktop"
  43.  @Qstring @NameVentura  = "Ventura Publisher"
  44.  @Qstring @NameLotus    = "Lotus 1-2-3"
  45.  @Qstring @NameWord     = "Word Processing"
  46.  @Qstring @NameWP       = "WordPerfect"
  47.  @Qstring @NameMSWord   = "Microsoft Word"
  48.  @Qstring @NameUtil     = "Orchid Utilities"
  49.  @Qstring @NameMore     = "More...."
  50.  @Qstring @NameOS2       = "IBM OS/2"
  51.  @Qstring @NameSCO       = "SCO Unix"
  52.  @Qstring @NameIntractv  = "Interactive Unix"
  53.  @Qstring @NameOtherp    = "Other Orchid Products"
  54.  @Qstring @NameTchsupt   = "Technical Support"
  55.  @Qstring @NameSample    = "Build Voice Notes Playback Diskette" 
  56.  @EndVars
  57.  
  58. @Display
  59. @If (@CheckCard ("c000", "00F6", "Fahrenheit VA") == 1)
  60.   @Goto MenuJumper
  61. @Elseif (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  62.   @Goto MenuJumper
  63. @Elseif (@CheckCard ("c000", "00F6", "Fahrenheit 1280 Plus") == 1)
  64.   @Goto MenuJumper
  65. @Else
  66.  @Cls
  67.  
  68.         █████████████████ ERROR ████████████████
  69.         █                                      █
  70.         █  An Orchid Fahrenheit video adapter  █
  71.         █  is not detected in your system.     █
  72.         █                                      █
  73.         █  If you choose to continue this      █
  74.         █  installation, the driver may not    █
  75.         █  respond correctly.                  █
  76.         █                                      █
  77.         █  If you are using a Network Server,  █
  78.         █  Just PRESS <ENTER> to continue.     █
  79.         █                                      █
  80.         █  PRESS F3 TO ABORT INSTALLATION      █
  81.         █                                      █
  82.         █                                      █
  83.         █                                      █
  84.         ████████████████████████████████████████
  85.  
  86.  @Pause
  87. @Endif
  88.  
  89.  
  90.     
  91.  
  92. MenuJumper:
  93. @cls
  94. @If (@CheckCard ("C000", "00F6", "Fahrenheit VA") == 1)
  95.  
  96.  
  97.  
  98.  
  99.  
  100.            Orchid Fahrenheit VA Series Video Adapter
  101.  
  102.  
  103.               Display Driver Installation Program
  104.  
  105.  
  106.                    Disk Release 6.01
  107.  
  108.  
  109.  
  110.  
  111.   @Pause
  112. @Elseif (@CheckCard ("C000", "011C", "Fahrenheit 1280") == 1)
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.               Orchid Fahrenheit 1280 Video Adapter
  120.  
  121.  
  122.               Note: The Windows Display Drivers WILL NOT
  123.                 Work on this card.  Please call Orchid
  124.                 Technical Support.
  125.  
  126.                    Disk Release 6.01
  127.  
  128.  
  129.  
  130.  
  131.  
  132.   @Pause
  133.  
  134. @Elseif (@CheckCard ("C000", "00F6", "Fahrenheit 1280 Plus") == 1)
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.            Orchid Fahrenheit 1280 Plus Video Adapter
  142.  
  143.  
  144.               Display Driver Installation Program
  145.  
  146.  
  147.                    Disk Release 6.01
  148.  
  149.  
  150.  
  151.  
  152.   @Pause
  153.  
  154.  
  155. @Cls
  156. @Endif
  157.  
  158. @If (@Chk2e8)
  159.  
  160.         ████████████████ Warning ███████████████
  161.         █                                      █
  162.         █  Fax Modem OR Serial Port OR Scanner █
  163.         █  Adapter is utlizing the I/O port of █
  164.         █  Fahrenheit Video Adapter.           █
  165.         █                                      █
  166.         █  Please reconfigure your Fax Modem   █
  167.         █  OR Serial Port OR Scanner at other  █
  168.         █  I/O port address, i.e. Avoid I/O    █
  169.         █  port address 2e8.                   █
  170.         █                                      █  
  171.         █  Note: If you are using a VESA Local █
  172.         █        BUS card, just continue, no   █               
  173.         █        conflict will occur.          █ 
  174.         █                                      █ 
  175.         █  You may continue the Installation,  █
  176.         █  and reconfigure your I/O port       █
  177.         █  address after Installation is       █
  178.         █  completed.                          █
  179.         █                                      █
  180.         ████████████████████████████████████████
  181. @Pause
  182. @Endif
  183.  
  184. @EndDisplay
  185.  
  186.  
  187.  
  188. @If ("@Indrive"=="C")
  189.     @Display
  190.  
  191.     The Install Program must be run from a Floppy Drive.  Please use the  
  192.     <ESC> key and start over from the Floppy drive.
  193.  
  194.      @Pause
  195.     @Abort
  196.    @EndDisplay
  197. @EndIf
  198.  
  199.  
  200. MenuMain:
  201.  @FlushOptions
  202.  @EnableF1(1)
  203.  @GetOption
  204.  @Cls
  205.   @Option 1000 = "@NameWin"
  206.   @Option 4000 = "@NameLotus"
  207.   @Option 2000 = "@NameCADsys"
  208.   @Option 5000 = "@NameWord"
  209.   @Option 5500 = "@NameSample"
  210.   @Option 6000 = "@NameUtil"
  211.   @Option 7000 = "@NameMore"
  212.  
  213.  @EndOption
  214.  
  215.  @If (@Esc)
  216.      @Exit
  217.  @Elseif (@KeyF1)
  218.      @Goto MenuMainHelp
  219.  @ElseIf (1000 [= @Option)
  220.      @Goto MenuWin
  221.  @ElseIf (2000 [= @Option)
  222.      @Goto MenuCADsys
  223.  @ElseIf (4000 [= @Option)
  224.      @Goto MenuLotus
  225.  @ElseIf (5000 [= @Option)
  226.      @Goto MenuWordProcess
  227.  @ElseIf (5500 [= @Option)
  228.      @Goto MenuSample
  229.  @ElseIf (6000 [= @Option)
  230.      @Goto MenuUtility
  231.  @ElseIf (7000 [= @Option)
  232.      @Goto MenuInfo
  233.  @Else
  234.      @Goto MenuMain
  235.  @Endif
  236.  
  237.  
  238. MenuInfo:
  239. @ClearOption(7010)
  240. @ClearOption(7020)
  241. @ClearOption(7030)
  242. @ClearOption(7040)
  243. @ClearOption(7045) 
  244. @ClearOption(7050)
  245.  @EnableF1(0)
  246.  @GetOption
  247.  @Cls
  248.     
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.   @Option 7010 = "@NameOS2"
  262.   @Option 7020 = "@NameSCO"
  263.   @Option 7030 = "@NameIntractv"
  264.   @Option 7040 = "@NameOtherp"
  265.   @Option 7045 = "Other Orchid Video Products"
  266.   @Option 7050 = "@NameTchsupt"
  267.  
  268.  
  269.   @EndOption
  270.  
  271.  
  272.  @If (@Esc)
  273.      @Goto MenuMain
  274. @ElseIf (7010 [=@Option)
  275.      @Help ("@ExePath\\install.hlp", "HelpOS2", "EndOS2")
  276. @ElseIf (7020 [=@Option)
  277.      @Help ("@ExePath\\install.hlp", "HelpSCO", "EndSCO")
  278. @ElseIf (7030 [=@Option)
  279.      @Help ("@ExePath\\install.hlp", "HelpIntractv", "EndIntractv")
  280. @ElseIf (7040 [=@Option)
  281.      @Help ("@ExePath\\install.hlp", "HelpOtherp", "EndOtherp")
  282. @ElseIf (7045 [=@Option)
  283.      @Help ("@ExePath\\install.hlp", "HelpFah", "EndFah")
  284. @ElseIf (7050 [=@Option)
  285.      @Help ("@ExePath\\install.hlp", "HelpTchsupt", "EndTchsupt")
  286.  
  287. @endif
  288. @Goto MenuInfo
  289.  
  290.  
  291.  
  292. MenuMainHelp:
  293.  
  294. @If (1000 [= @Option)  
  295.   @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  296. @ElseIf (4000 [= @Option) 
  297.   @Help ("@ExePath\\install.hlp", "HelpLotus", "HelpLotusInst")
  298. @Elseif (2000 [= @Option) 
  299.   @Help ("@ExePath\\install.hlp", "HelpCADMain", "EndCADMain")
  300. @Elseif (5000 [= @Option) 
  301.   @Help ("@ExePath\\install.hlp", "HelpWordPMain", "EndWordPMain")
  302. @Elseif (5500 [= @Option) 
  303.   @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  304. @Elseif (6000 [= @Option) 
  305.   @Help ("@ExePath\\install.hlp", "HelpUtilMain", "EndUtilMain")
  306. @Elseif (7000 [= @Option) 
  307.   @Help ("@ExePath\\install.hlp", "HelpMore", "EndMore")
  308. @EndIf   
  309.  
  310. @Goto MenuMain
  311.  
  312.  
  313. MenuWin:
  314.  
  315. @ClearOption (1010) 
  316. @ClearOption (1020)
  317. @EnableF1(1)
  318. @GetOption @Cls
  319.  @NameWin @msgDDI
  320.  @msgPSAO
  321.  @Option 1010 = "Microsoft Windows Standard Installation"
  322.  @Option 1020 = "Microsoft Windows Network Server Installation"
  323. @EndOption
  324.  
  325. @If (@Esc)
  326.  @Goto MenuMain
  327. @ElseIf (@KeyF1)
  328.  @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin") 
  329.  @Goto MenuWin
  330. @Endif
  331.  
  332.  
  333. MenuWindow:
  334. @EnableF1(0)
  335. @GetOutDrive
  336.  @Suppress A
  337.  @Suppress B 
  338.  @Cls
  339.  @NameWin @msgDDI
  340.  @msgDrive
  341. @EndOutDrive
  342. @If (@Esc) @Goto MenuWin @EndIf
  343.  
  344. @GetSubdir
  345.  @Default = "\\WINDOWS"    
  346.  @Cls
  347.  @NameWin @msgDDI
  348.  @msgDir
  349.  
  350.  
  351. @EndSubdir
  352. @If (@Esc) @Goto MenuWindow @EndIf
  353.  
  354. @ClearOption(1)
  355. @ClearOption(2)
  356. @EnableF1(0)
  357. @GetOption
  358.  @LocalWindow (10,39) 
  359.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  360.   @Cls
  361.   @NameWin @msgDDI
  362.   @OutDrive:@SubDir @msgDDNE
  363.   @msgCont
  364.  @ElseIf (1020 [= @Option)
  365.   @Goto MenuCopyFileWin
  366.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\winver.exe" == 0) ||
  367.      (@Exists "@OutDrive:\\@SubDir\\win.ini" == 0))
  368.   @Cls
  369.   @NameWin @msgDDI
  370.   @msgNoFile
  371.   @OutDrive:@SubDir
  372.   @NameWin @msgNPI
  373.  @Else
  374.   @Goto MenuCopyFileWin
  375.  @EndIf
  376.  @Option 1 = "@Reenter"
  377.  @Option 2 = "@Cont"
  378. @EndOption
  379. @If ((@Esc) || (1 [= @Option))
  380.   @Goto MenuWindow
  381. @Endif
  382.  
  383.  
  384.  
  385.  
  386. MenuCopyFileWin:
  387. @DefineDisk
  388. @Label = "Disk #1"
  389. @BeginLib FAHDRVVA.001 
  390.  
  391.  @F fahsetup.cpl  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  392.  @F fahsetup.hlp  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  393.  @F orchidf.2gr   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  394.  @F s3flat.drv    @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  395.  @F vdds3911.386  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  396.  @F fmagdll.dll   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  397.  @F fmag.exe      @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  398.  @F vmp_mm.dll    @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  399.  @F vctl.dll      @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  400.  @F orchhook.dll  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  401.  @F orc80124.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  402.  @F orchidf.386   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  403.  @F orchidf.3gr   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  404.  @F s3911grb.3gr  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  405.  @F vdds3911.386  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  406.   
  407.  @F fahsetup.cpl  @O @OutDrive:\@SubDir\*.*  @Option 1020
  408.  @F fahsetup.hlp  @O @OutDrive:\@SubDir\*.*  @Option 1020
  409.  @F orchidf.2gr   @O @OutDrive:\@SubDir\*.*  @Option 1020
  410.  @F s3flat.drv    @O @OutDrive:\@SubDir\*.*  @Option 1020
  411.  @F vdds3911.386  @O @OutDrive:\@SubDir\*.*  @Option 1020
  412.  @F fmagdll.dll   @O @OutDrive:\@SubDir\*.*  @Option 1020
  413.  @F fmag.exe      @O @OutDrive:\@SubDir\*.*  @Option 1020
  414.  @F vmp_mm.dll    @O @OutDrive:\@SubDir\*.*  @Option 1020
  415.  @F vctl.dll      @O @OutDrive:\@SubDir\*.*  @Option 1020
  416.  @F orchhook.dll  @O @OutDrive:\@SubDir\*.*  @Option 1020
  417.  @F orc80124.drv  @O @OutDrive:\@SubDir\*.*  @Option 1020
  418.  @F orchidf.386   @O @OutDrive:\@SubDir\*.*  @Option 1020
  419.  @F orchidf.3gr   @O @OutDrive:\@SubDir\*.*  @Option 1020
  420.  @F s3911grb.3gr  @O @OutDrive:\@SubDir\*.*  @Option 1020
  421.  @F vdds3911.386  @O @OutDrive:\@SubDir\*.*  @Option 1020
  422.  
  423.  
  424.  @F fva.exe     @O @OutDrive:\@SubDir\*.*
  425.  
  426.  
  427.  @If (@CheckCard ("C000", "00F6", "Fahrenheit VA") == 1)
  428.   @F orchnote.exe @O @OutDrive:\orchid\*.* 
  429.  @EndIf
  430.  
  431.  
  432.  @F fahsetup.orc  @O @OutDrive:\@SubDir\*.* 
  433.  
  434.  
  435. @EndLib 
  436. @EndDisk
  437.  
  438.  
  439.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidf.cpl")  
  440.    @Delete ("@OutDrive:\\@SubDir\\orchidf.cpl")  
  441.  
  442.  
  443. @Display
  444.  
  445.  @Cls
  446.  @System "@OutDrive:\\@SubDir\\fva.exe"
  447.  @Delete ("@OutDrive:\\@SubDir\\fva.exe")
  448.  @Cls
  449.  
  450. @EndDisplay
  451.               
  452.  
  453.  @If (1020 [= @Option)
  454.    @Goto MenuVOICE
  455.  @Elseif (@CheckCard ("0000", "04e8", "Ç") == 0)
  456.    @Goto MenuModify
  457.  @Elseif (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  458.    @Goto MenuModify
  459.  @Else
  460. MenuVOICE:
  461.     @ClearOption(60) 
  462.     @ClearOption(61)  
  463.     @ClearOption(62)
  464.     @EnableF1(1)
  465.  
  466.     @GetOption
  467.      @LocalWindow (10,40)
  468.      @Cls
  469.      Would you like Voice Notes....
  470.      (Hit the <F1> Key for more information.)
  471.      (Network Server users, please read Help file <F1> Key.)
  472.      @Option 60 = "Loaded and INSTALLED in Windows"
  473.      @Option 61 = "Loaded, but NOT ACTIVATED in Windows"
  474.      @Option 62 = "NOT LOADED AT ALL!"
  475.     @EndOption
  476.  
  477.     @If (@Esc)
  478.       @Goto MenuVOICE
  479.     @Elseif (@KeyF1)
  480.       @Help ("@ExePath\\install.hlp","HelpVOICE","EndVOICE")
  481.     @Elseif (60 [= @Option)
  482.       @Goto MenuVOICENOTE
  483.     @Elseif (61 [= @Option)
  484.       @Goto MenuVOICENOTE
  485.     @Elseif (62 [= @Option)
  486.       @Goto MenuModify
  487.  @Endif
  488.    @Goto MenuVOICE 
  489.  @Endif   
  490.  
  491. MenuVOICENOTE:
  492. @EnableF1(0)
  493. @GetOutDrive
  494.  @Suppress A
  495.  @Suppress B 
  496.  @Cls
  497.  Voicenotes @msgDDI
  498.  @msgDrive
  499. @EndOutDrive
  500. @If (@Esc) @Goto MenuVoice @EndIf
  501.  
  502. @GetSubdir @orcdir
  503.  @Default = "\\ORCHID"    
  504.  @Cls
  505.  Voicenotes @msgDDI
  506.  @msgDir
  507.  
  508.  
  509. @EndSubdir
  510. @If (@Esc) @Goto MenuVOICENOTE @EndIf
  511.  
  512. @ClearOption(1)
  513. @ClearOption(2)
  514. @EnableF1(0)
  515. @GetOption
  516.  @LocalWindow (10,39) 
  517.  @If (@Exists "@OutDrive:\\@orcdir" == 0)
  518.   @Cls
  519.   Voicenote @msgDDI
  520.   @OutDrive:@SubDir @msgDDNE
  521.   @msgCont
  522.  @Else
  523.   @Goto MenuFileVoice
  524.  @EndIf
  525.  @Option 1 = "@Reenter"
  526.  @Option 2 = "@Cont"
  527. @EndOption
  528. @If ((@Esc) || (1 [= @Option))
  529.   @Goto MenuVOICENOTE
  530. @Endif
  531.    
  532. MenuFileVoice:
  533.    @DefineDisk
  534.     @Label = "Disk #1"
  535.     @BeginLib FAHDRVVA.001 
  536.    
  537.     @F orchnote.exe @O @OutDrive:\@orcdir\*.* 
  538.     @F vmp_mm.dll   @O @OutDrive:\@orcdir\*.* 
  539.     @F vctl.dll     @O @OutDrive:\@orcdir\*.* 
  540.     @F orchhook.dll @O @OutDrive:\@orcdir\*.* 
  541.     @F ovn.hlp      @O @OutDrive:\@orcdir\*.*
  542.     @F orckey.dll   @O @OutDrive:\@orcdir\*.*  
  543.     
  544.     @F orcsnd.drv   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  545.     @F sndsetup.cpl @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  546.     @F sndsetup.hlp @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  547.     
  548.     @F orcsnd.drv   @O @OutDrive:\@SubDir\*.* @Option 1020
  549.     @F sndsetup.cpl @O @OutDrive:\@SubDir\*.* @Option 1020
  550.     @F sndsetup.hlp @O @OutDrive:\@SubDir\*.* @Option 1020
  551.  
  552.     @F orchinst.exe @O @OutDrive:\@SubDir\*.*
  553.     @F orchinst.dat @O @OutDrive:\@SubDir\*.*
  554.     @F orcdde.dll   @O @OutDrive:\@SubDir\*.*
  555.     
  556.     @EndLib 
  557.    @EndDisk
  558.  
  559.  
  560. MenuModify: 
  561. @Display
  562.  @If (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  563.   Modifying WIN.INI of Windows 3.0.
  564.   @DeleteStr ("@OutDrive:\\@SubDir\\win.ini", "windows", "run", "orchid.exe")
  565.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchid.exe", "APPEND")
  566.  @Elseif (@Exists "@OutDrive:\\@SubDir\\orchid.ini" == 0)
  567.   Modifying WIN.INI of Windows 3.1
  568.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "run=", "control.exe", "APPEND")
  569.  @Elseif (@Exists "@OutDrive:\\@SubDir\\progman.orc" == 0)
  570.   @CatFiles ("@OutDrive:\\@SubDir\\progman.ini", "@OutDrive:\\@SubDir\\progman.orc")
  571.  @Endif
  572.  
  573.  @If (60 [= @Option)
  574.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "StartUp", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@orcdir\\orchnote.exe", "REPLACE")
  575.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "VoiceNote", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@orcdir\\orchnote.exe", "REPLACE")
  576.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchinst.exe", "APPEND")
  577.   @WriteFile ("@OutDrive:\\@SubDir\\system.ini", "drivers", "Wave=", "WAVE=ORCSND.DRV", "REPLACE")
  578.  @Endif
  579.  
  580.  @If (61 [= @Option)
  581.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "Group", "Group1=", "Group1=NoteUSED", "REPLACE")
  582.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "VoiceNote", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@orcdir\\orchnote.exe", "REPLACE")
  583.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchinst.exe", "APPEND")
  584.  @Endif
  585.  
  586.  @If (1020 [= @Option)
  587.   @WriteFile ("@OutDrive:\\@SubDir\\setup.inf","Installable.Drivers","FahrenheitVA", "FahrenheitVA = x:orcsnd.drv, \"wave\", \" Orchid Fahrenheit VA\", ,, ", "REPLACE")
  588.   @Goto MenuWinEnd
  589.  @EndIf
  590.  
  591.  @If (@CheckCard ("0000", "04e8", "Ç") == 1)
  592.   @WriteFile ("@OutDrive:\\@SubDir\\system\\setup.inf","Installable.Drivers","FahrenheitVA", "FahrenheitVA = x:orcsnd.drv, \"wave\", \" Orchid Fahrenheit VA\", ,, ", "REPLACE")
  593.  @EndIf
  594.  
  595.  @If (@CheckCard ("c000", "00F6", "Fahrenheit VA") == 1)
  596.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidf.drv") 
  597.    @Cls
  598.  @Endif
  599.  
  600.  @If (@CheckCard ("C000", "00F6", "Fahrenheit 1280 Plus") == 1)
  601.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidf.drv")  
  602.    @Cls
  603.  @Endif
  604.  
  605.  @If (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  606.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidv.drv")
  607.    @Cls
  608.  @Endif
  609.  
  610.  
  611. @EndDisplay
  612. MenuWinEnd:
  613. @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  614. @Display
  615. @Cls
  616.  
  617.  
  618.  
  619.  
  620. ***************************************************************************
  621. *** The installation of the Orchid Window HyperDriver is now completed. ***
  622. ***************************************************************************
  623.  
  624.  
  625. @Pause
  626. @EndDisplay
  627. @Goto MenuMain
  628.  
  629.  
  630. MenuLotus:
  631.  
  632.  
  633.  
  634. @Help ("@ExePath\\install.hlp", "HelpLotusInst", "EndLotus")
  635. @Goto MenuMain
  636.  
  637.  
  638. MenuUtility:
  639.  
  640. @ClearOption(6100) 
  641. @ClearOption(6200) 
  642. @ClearOption(6300) 
  643. @ClearOption(6400) 
  644. @EnableF1(1)
  645.  
  646. @GetOption
  647.  @Cls
  648.  @NameUtil Installation:
  649.  @msgPSAA
  650.  @Option 6100 = " FSCAN.COM"
  651.  @Option 6200 = " FMODE.EXE"
  652.  @Option 6300 = " FDEMO.EXE"
  653.  @Option 6400 = "All of Above"
  654. @EndOption
  655.  
  656. @If (@Esc)
  657.  @Goto MenuMain
  658. @Elseif (@KeyF1)
  659.  @Help ("@ExePath\\install.hlp","HelpUtilMain","EndUtilMain")
  660.  @Goto MenuUtility
  661. @Endif
  662.  
  663. InputDirUtil:
  664. @EnableF1(0)
  665. @GetOutDrive
  666.  @Suppress A
  667.  @Suppress B
  668.  @Cls
  669.  @NameUtil Installation:
  670.  @msgDrive
  671.  
  672.  
  673.  
  674.  
  675.  
  676.  
  677.  
  678.  
  679.  
  680.  
  681.  
  682.  
  683.  
  684.  
  685. @EndOutDrive
  686. @If (@Esc) @Goto MenuUtility @Endif
  687.  
  688. @GetSubdir
  689.  @Default = "\\FAH_UTIL"
  690.  @Cls
  691.  @NameUtil Installation
  692.  @msgDir
  693.  
  694.  
  695. @EndSubdir
  696. @If (@Esc) @Goto MenuUtility @Endif
  697.  
  698. @ClearOption(1)
  699. @ClearOption(2)
  700. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  701.  @EnableF1(0)
  702.  @GetOption
  703.   @LocalWindow (10,39) 
  704.   @Cls
  705.   @NameUtil Installation
  706.   @OutDrive:@SubDir @msgDDNE
  707.   @msgCont
  708.   @Option 1 = "@Reenter"
  709.   @Option 2 = "@Cont"
  710.  @EndOption
  711. @Endif
  712.  
  713. @If (@Esc)
  714.  @Goto MenuUtility
  715. @ElseIf (1 [= @Option)
  716.   @Goto InputDirUtil
  717. @Endif
  718.  
  719. @DefineDisk
  720.  @Label = "Disk #1"
  721.  @BeginLib FAHDRVVA.001 
  722.  
  723.  @F fscan.com @O @OutDrive:\@SubDir\*.* @Option 6100 
  724.  @F fmode.exe @O @OutDrive:\@SubDir\*.* @Option 6200 
  725.  @F fdemo.exe @O @OutDrive:\@SubDir\*.* @Option 6300 
  726.  
  727.  @F fscan.com @O @OutDrive:\@SubDir\*.* @Option 6400 
  728.  @F fmode.exe @O @OutDrive:\@SubDir\*.* @Option 6400 
  729.  @F fdemo.exe @O @OutDrive:\@SubDir\*.* @Option 6400 
  730.  
  731.  @EndLib
  732. @EndDisk
  733.  
  734. @Help ("@ExePath\\install.hlp","HelpUtilFin","EndUtilFin")
  735. @Goto MenuUtility
  736.  
  737.  
  738. MenuCADsys:
  739. @ClearOption(2100) 
  740. @ClearOption(2200)
  741. @ClearOption(2300) 
  742. @ClearOption(2400) 
  743. @ClearOption(2500) 
  744. @ClearOption(2600) 
  745. @ClearOption(2700)
  746. @EnableF1(1)
  747.  
  748. @GetOption
  749.  @LocalWindow (10,40)
  750.  @Cls
  751.  @NameCADsys @msgDDI
  752.  @msgPSAA
  753.  @Option 2100 = "@NameACAD"
  754.  @Option 2200 = "@NameCADKey"
  755.  @Option 2300 = "@NameDataCAD"
  756.  @Option 2400 = "@NameCADVance"
  757.  @Option 2500 = "@NameGenCADD"
  758.  @Option 2600 = "@NameMicroCAD"
  759.  @Option 2700 = "@NameVersaCAD"
  760. @EndOption
  761.  
  762. @If (@Esc)
  763.  @Goto MenuMain
  764. @Elseif (@KeyF1)
  765.  @Goto MenuCADsysHelp
  766. @ElseIf (2100 [= @Option)
  767.  @Goto MenuACAD
  768. @ElseIf (2200 [= @Option)
  769.  @Goto MenuCADKey
  770. @ElseIf (2300 [= @Option)
  771.  @Goto MenuDataCAD
  772. @ElseIf (2400 [= @Option)
  773.  @Goto MenuCADVance
  774. @ElseIf (2500 [= @Option)
  775.  @Goto MenuGenCADD
  776. @ElseIf (2600 [= @Option)
  777.  @Goto MenuMicroCAD
  778. @ElseIf (2700 [= @Option)
  779.  @Goto MenuVersaCAD
  780. @Endif
  781.  
  782.  
  783. MenuCADsysHelp:
  784.  
  785. @If (2100 [= @Option)
  786.  @Goto MenuACAD
  787. @Elseif (2200 [= @Option)
  788.  @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  789. @Elseif (2300 [= @Option)
  790.  @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  791. @Elseif (2400 [= @Option)
  792.  @Help ("@ExePath\\install.hlp", "HelpCADVance", "EndCADVance")
  793. @Elseif (2500 [= @Option)
  794.  @Help ("@ExePath\\install.hlp", "HelpGenCADD", "EndGenCADD")
  795. @Elseif (2600 [= @Option)
  796.  @Goto MenuMicroCAD
  797. @Elseif (2700 [= @Option)
  798.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  799. @Endif
  800.  
  801. @Goto MenuCADsys
  802.  
  803.  
  804. MenuACAD:
  805. @ClearOption (2105)
  806. @ClearOption (2110)
  807. @ClearOption (2120)
  808. @ClearOption (2125)
  809. @ClearOption (2130)
  810. @ClearOption (2145)
  811. @EnableF1(1)
  812.  
  813. @GetOption @Cls
  814.  @NameACAD @msgDDI
  815.  @msgPSAV
  816.  @Option 2105 = "ADI 4.2 Features and Commands Help Menu (Reading Recommended)"
  817.  @Option 2130 = "AutoCAD Release 11 (Protected Mode ADI 4.2)"
  818.  @Option 2145 = "AutoCAD Release 12 (Protected Mode ADI 4.2)"
  819.  @Option 2120 = "AutoDesk's 3D Studio version 1.0 & 2.0 (PADI 4.2)"
  820.  @Option 2125 = "AutoDesk's AutoShade version 2.1 (PADI 4.2)"
  821.  @Option 2110 = "AutoCAD Release 10 & 11 (Real Mode ADI 4.1)"
  822. @EndOption
  823.  
  824. @If (@Esc)
  825.  @Goto MenuCADsys
  826. @ElseIf (@KeyF1)
  827.  @Goto MenuACADHelp
  828. @ElseIf (2105 [=@Option)
  829.      @Goto MenuADI42
  830. @Endif
  831.  
  832. InputDirACAD:
  833. @EnableF1(0)
  834. @GetOutDrive
  835.  @Suppress A
  836.  @Suppress B
  837.  @Cls
  838.  @NameACAD @msgDDI
  839.  @msgDrive
  840.  
  841.  
  842.  
  843.  
  844.  
  845.  
  846.  
  847.  
  848.  
  849.  
  850.  
  851.  
  852.  
  853. @EndOutDrive
  854. @If (@Esc) @Goto MenuACAD @Endif
  855.  
  856. @GetSubdir
  857.  @If (2110 [= @Option)
  858.   @Default = "\\ACAD"
  859.  @Elseif (2120 [= @Option)
  860.   @Default = "\\3DS"
  861.  @Elseif (2125 [= @Option)
  862.   @Default = "\\SHADE"
  863.  @Elseif (2130 [= @Option)
  864.   @Default = "\\ACAD11"
  865.  @Elseif (2145 [= @Option)
  866.   @Default = "\\ACAD12"
  867.  @Endif
  868.  @Cls
  869.  @NameACAD @msgDDI
  870.  @msgDir
  871.  
  872.  
  873. @EndSubdir
  874. @If (@Esc) @Goto MenuACAD @Endif
  875.  
  876. @ClearOption(1)
  877. @ClearOption(2)
  878. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  879.  @EnableF1(0)
  880.  @GetOption
  881.   @LocalWindow (10,39) 
  882.   @Cls
  883.   @NameACAD @msgDDI
  884.   @OutDrive:@SubDir @msgDDNE
  885.   @msgCont
  886.   @Option 1 = "@Reenter"
  887.   @Option 2 = "@Cont"
  888.  @EndOption
  889. @Endif
  890.  
  891. @If (@Esc)
  892.  @Goto MenuACAD
  893. @ElseIf (1 [= @Option)
  894.   @Goto InputDirACAD
  895. @Endif
  896.  
  897. @DefineDisk
  898.  @Label = "Disk #1"
  899.  @BeginLib FAHDRVVA.001 
  900.  
  901.  @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
  902.  @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120 
  903.  @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2120 
  904.  @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2120 
  905.  @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2120
  906.  @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
  907.  @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2120
  908.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\*.* @Option 2120
  909.  
  910.  @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
  911.  @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125 
  912.  @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2125 
  913.  @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2125 
  914.  @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2125
  915.  @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
  916.  @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2125
  917.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\*.* @Option 2125
  918.  
  919.  @F 15x25.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
  920.  @F 16x30.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130 
  921.  @F 6x9.aqf       @O @OutDrive:\@SubDir\*.* @Option 2130 
  922.  @F 8x16.aqf      @O @OutDrive:\@SubDir\*.* @Option 2130 
  923.  @F 9x15.aqf      @O @OutDrive:\@SubDir\*.* @Option 2130
  924.  @F 12x24.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
  925.  @F 12x20.aqf     @O @OutDrive:\@SubDir\*.* @Option 2130
  926.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\*.* @Option 2130
  927.  
  928.  @F 15x25.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  929.  @F 16x30.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  930.  @F 6x9.aqf       @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  931.  @F 8x16.aqf      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  932.  @F 9x15.aqf      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  933.  @F 12x24.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  934.  @F 12x20.aqf     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  935.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  936.  
  937.  @F fadi.exe    @O @OutDrive:\@SubDir\*.* @Option 2110
  938.  
  939.  
  940.  @EndLib 
  941. @EndDisk
  942.  
  943. @If (2110 [= @Option)
  944.  @Help ("@ExePath\\install.hlp", "HelpACAD10r", "EndACAD10r")
  945. @Elseif (2120 [= @Option)
  946.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  947.          "SET DSPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  948.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
  949.          "SET RDPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  950.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
  951.          "SET RCPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  952.  
  953.  
  954.  @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
  955. @ElseIf (2125 [= @Option)
  956.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  957.          "SET DSPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  958.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
  959.          "SET RDPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  960.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
  961.          "SET RCPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  962.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SHADE",
  963.          "SET SHADE=@OutDrive:\\@SubDir\\rmansupt", "REPLACE")
  964.  
  965.  
  966.  @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
  967. @Elseif (2130 [= @Option)
  968.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  969.          "SET DSPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  970.  
  971.  
  972.  @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
  973. @Elseif (2145 [= @Option)
  974.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  975.          "SET ACADDRV=@OutDrive:\\@SubDir\\drv\\", "REPLACE")
  976.  
  977.  
  978.  @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12") 
  979.  
  980. @EndIf   
  981.               
  982. @Goto MenuACAD
  983.  
  984.  
  985. MenuADI42:
  986. @ClearOption(2910)
  987. @ClearOption(2920)
  988. @ClearOption(2925) 
  989. @ClearOption(2930)
  990. @ClearOption(2933)  
  991. @ClearOption(2935)  
  992. @ClearOption(2940)
  993. @ClearOption(2950)
  994. @ClearOption(2953)  
  995. @ClearOption(2955)  
  996. @ClearOption(2960)
  997. @ClearOption(2965)
  998. @ClearOption(2970) 
  999.  @EnableF1(0)
  1000.  @GetOption
  1001.  @Cls
  1002.     
  1003.  
  1004.  
  1005.  
  1006.  
  1007.  
  1008.  
  1009.  
  1010.  
  1011.  
  1012.  
  1013.  
  1014.  
  1015.   @Option 2910 = "List of Features, Fonts, and Resolutions"
  1016.   @Option 2920 = "Screen Layout and Graphics Flip Screen"
  1017.   @Option 2925 = "Display List Configuration"
  1018.   @Option 2930 = "Birds-Eye View" 
  1019.   @Option 2933 = "Birds-Eye Icons"
  1020.   @Option 2935 = "Edge Pan, Page Alarm"
  1021.   @Option 2940 = "Erase Buffer and Band-Free Rendering" 
  1022.   @Option 2950 = "Fahrenheit Driver Commands Part 1"
  1023.   @Option 2953 = "Fahrenheit Driver Commands Part 2"
  1024.   @Option 2955 = "Fahrenheit Quick Reference Driver Commands"
  1025.   @Option 2960 = "Custom Menu Design"
  1026.   @Option 2965 = "AutoCAD Performance Tuning"
  1027.   @Option 2970 = "Known Bug List and Upgrade Information"
  1028.  
  1029.  
  1030.  
  1031.   @EndOption
  1032.  
  1033.  
  1034.  @If (@Esc)
  1035.      @Goto MenuACAD
  1036. @ElseIf (2910 [=@Option)
  1037.      @Help ("@ExePath\\install.hlp", "HelpFeatures", "EndFeatures")
  1038. @ElseIf (2920 [=@Option)
  1039.      @Help ("@ExePath\\install.hlp", "HelpLayout", "EndLayout")
  1040. @ElseIf (2925 [=@Option)
  1041.      @Help ("@ExePath\\install.hlp", "HelpDLC", "EndDLC")
  1042. @ElseIf (2930 [=@Option)
  1043.      @Help ("@ExePath\\install.hlp", "HelpBird", "EndBird")
  1044. @ElseIf (2933 [=@Option)
  1045.      @Help ("@ExePath\\install.hlp", "HelpIcon", "EndIcon")
  1046. @ElseIf (2935 [=@Option)
  1047.      @Help ("@ExePath\\install.hlp", "HelpPan", "EndPan")
  1048. @ElseIf (2940 [=@Option)
  1049.      @Help ("@ExePath\\install.hlp", "HelpBand", "EndBand")
  1050. @ElseIf (2950 [=@Option)
  1051.      @Help ("@ExePath\\install.hlp", "HelpCommands", "EndCommands")
  1052. @ElseIf (2953 [=@Option)
  1053.      @Help ("@ExePath\\install.hlp", "HelpComtwo", "EndComtwo")
  1054. @ElseIf (2955 [=@Option)
  1055.      @Help ("@ExePath\\install.hlp", "HelpComquick", "EndComquick")
  1056. @ElseIf (2960 [=@Option)
  1057.      @Help ("@ExePath\\install.hlp", "HelpCMD", "EndCMD")
  1058. @ElseIf (2965 [=@Option)
  1059.      @Help ("@ExePath\\install.hlp", "HelpTuning", "EndTuning")
  1060. @ElseIf (2970 [=@Option)
  1061.      @Help ("@ExePath\\install.hlp", "HelpBug", "EndBug")
  1062.  
  1063. @endif
  1064. @Goto MenuADI42
  1065.  
  1066.  
  1067.  
  1068. MenuACADHelp:
  1069.  
  1070. @If (2110 [= @Option)
  1071.  @Help ("@ExePath\\install.hlp", "HelpACAD10r", "EndACAD10r")
  1072. @Elseif (2105 [= @Option)
  1073.  @Help ("@ExePath\\install.hlp", "HelpADI42", "EndADI42")
  1074. @ElseIf (2120 [= @Option)
  1075.  @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
  1076. @Elseif (2125 [= @Option)
  1077.  @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
  1078. @Elseif (2130 [= @Option)
  1079.  @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
  1080. @Elseif (2145 [= @Option)
  1081.  @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12")
  1082. @EndIf   
  1083.  
  1084. @Goto MenuACAD
  1085.  
  1086.  
  1087. MenuCADKey:
  1088.  
  1089. @EnableF1(0)
  1090. @GetOutDrive
  1091.  @Suppress A
  1092.  @Suppress B
  1093.  @Cls
  1094.  @NameCADKey @msgDDI
  1095.  @msgDrive
  1096. @EndOutDrive
  1097. @If (@Esc) @Goto MenuCADsys @Endif
  1098.  
  1099. @GetSubdir
  1100.  @Default = "\\CADKEY"
  1101.  @Cls
  1102.  @NameCADKey @msgDDI
  1103.  @msgDir
  1104.  
  1105.  
  1106. @EndSubdir
  1107. @If (@Esc) @Goto MenuCADKey @Endif
  1108.  
  1109.  
  1110. @ClearOption(1)
  1111. @ClearOption(2)
  1112. @EnableF1(0)
  1113. @GetOption
  1114.  @LocalWindow (10,39) 
  1115.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1116.   @Cls
  1117.   @NameCADKey @msgDDI
  1118.   @OutDrive:@SubDir @msgDDNE
  1119.   @msgCont
  1120.  @ElseIf (@Exists "@OutDrive:\\@SubDir\\grdev.dat" == 0)
  1121.   @Cls
  1122.   @NameCADKey @msgDDI
  1123.   The grdev.dat file is not found in your input directory:
  1124.   @OutDrive:@SubDir
  1125.   @NameCADKey @msgNPI
  1126.  @Else
  1127.   @Goto CopyFileCADKey
  1128.  @EndIf
  1129.  @Option 1 = "@Reenter"
  1130.  @Option 2 = "@Cont"
  1131. @EndOption
  1132. @If ((@Esc) || (1 [= @Option))
  1133.   @Goto MenuCADKey
  1134. @Endif
  1135.  
  1136. CopyFileCADKey:
  1137. @Rename ("@OutDrive:\\@Subdir\\grdev.dat","grdev.000")
  1138. @DefineDisk
  1139.  @Label = "Disk #1"
  1140.  @BeginLib FAHDRVVA.001 
  1141.  @F ck_911.exe  @O @OutDrive:\@SubDir\*.*
  1142.  @F grdev.dat   @O @OutDrive:\@SubDir\*.orc 
  1143.  @EndLib 
  1144. @EndDisk
  1145.  
  1146. @Delete ("@OutDrive:\\@Subdir\\grdev.dat")
  1147. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.000")
  1148. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.orc")
  1149. @Delete ("@OutDrive:\\@Subdir\\grdev.orc")
  1150.                   
  1151. @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  1152. @Goto MenuCADsys
  1153.  
  1154.  
  1155.  
  1156. MenuDataCAD:
  1157.  
  1158. @EnableF1(0)
  1159. @GetOutDrive
  1160.  @Suppress A
  1161.  @Suppress B
  1162.  @Cls
  1163.  @NameDataCAD @msgDDI
  1164.  @msgDrive
  1165. @EndOutDrive
  1166. @If (@Esc) @Goto MenuCADsys @Endif
  1167.  
  1168. @GetSubdir
  1169.  @Default = "\\MTEC\\DRV"
  1170.  @Cls
  1171.  @NameDataCAD @msgDDI
  1172.  @msgDir
  1173.  
  1174.  
  1175. @EndSubdir
  1176. @If (@Esc) @Goto MenuDataCAD @Endif
  1177.  
  1178.  
  1179. @ClearOption(1)
  1180. @ClearOption(2)
  1181. @EnableF1(0)
  1182. @GetOption
  1183.  @LocalWindow (10,39) 
  1184.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1185.   @Cls
  1186.   @NameDataCAD @msgDDI
  1187.   @OutDrive:@SubDir @msgDDNE
  1188.   @msgCont
  1189.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\drivers.gd2" == 0) ||
  1190.       (@Exists "@OutDrive:\\@SubDir\\drivers.gd4" == 0))
  1191.   @Cls
  1192.   @NameDataCAD @msgDDI
  1193.   The drivers.gd2/drivers.gd4 file is not found in your input directory:
  1194.   @OutDrive:@SubDir
  1195.   DataCAD @msgNPI
  1196.  @Else
  1197.   @Goto CopyFileDataCAD
  1198.  @EndIf
  1199.  @Option 1 = "@Reenter"
  1200.  @Option 2 = "@Cont"
  1201. @EndOption
  1202. @If ((@Esc) || (1 [= @Option))
  1203.   @Goto MenuDataCAD
  1204. @Endif
  1205.  
  1206. CopyFileDataCAD:
  1207. @Rename ("@OutDrive:\\@Subdir\\drivers.gd2","drivers.oc2")
  1208. @Rename ("@OutDrive:\\@Subdir\\drivers.gd4","drivers.oc4")
  1209. @Delete ("@OutDrive:\\@Subdir\\drivers.gd2")
  1210. @Delete ("@OutDrive:\\@Subdir\\drivers.gd4")
  1211.  
  1212. @DefineDisk
  1213.  @Label = "Disk #1"
  1214.  @BeginLib FAHDRVVA.001 
  1215.  @F ck_911.exe   @O @OutDrive:\@SubDir\*.*
  1216.  @F dl_911.exe   @O @OutDrive:\@SubDir\*.*
  1217.  @F drivers.gd2  @O @OutDrive:\@SubDir\orchid.*
  1218.  @F drivers.gd4  @O @OutDrive:\@SubDir\orchid.*
  1219.  @EndLib 
  1220. @EndDisk
  1221.  
  1222. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\drivers.oc2")
  1223. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\orchid.gd2")
  1224. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\drivers.oc4")
  1225. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\orchid.gd4")
  1226. @Delete ("@OutDrive:\\@Subdir\\orchid.gd2")
  1227. @Delete ("@OutDrive:\\@Subdir\\orchid.gd4")
  1228.  
  1229. @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  1230. @Goto MenuCADsys
  1231.  
  1232.  
  1233. MenuCADVance:
  1234.  
  1235. @EnableF1(0)
  1236. @GetOutDrive
  1237.  @Suppress A
  1238.  @Suppress B
  1239.  @Cls
  1240.  @NameCADVance @msgDDI
  1241.  @msgDrive
  1242. @EndOutDrive
  1243. @If (@Esc) @Goto MenuCADsys @Endif
  1244.  
  1245. @GetSubdir
  1246.  @Default = "\\CADVANCE"
  1247.  @Cls
  1248.  @NameCADVance @msgDDI
  1249.  @msgDir
  1250.  
  1251.  
  1252. @EndSubdir
  1253. @If (@Esc) @Goto MenuCADVance @Endif
  1254.  
  1255.  
  1256. @ClearOption(1)
  1257. @ClearOption(2)
  1258. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1259.   @EnableF1(0)
  1260.   @GetOption
  1261.   @LocalWindow (10,39)
  1262.   @Cls
  1263.   @NameCADVance @msgDDI
  1264.   @OutDrive:@SubDir @msgDDNE
  1265.   @msgCont
  1266.   @Option 1 = "@Reenter"
  1267.   @Option 2 = "@Cont"
  1268.   @EndOption
  1269. @Endif
  1270.  
  1271. @If ((@Esc) || (1 [= @Option))
  1272.   @Goto MenuCADVance
  1273. @Endif
  1274.  
  1275. @DefineDisk
  1276.  @Label = "Disk #1"
  1277.  @BeginLib FAHDRVVA.001 
  1278.  @F cdv911.drv      @O @OutDrive:\@SubDir\*.*
  1279.  @EndLib 
  1280. @EndDisk
  1281.  
  1282. @Goto SetS3911
  1283.  
  1284. EndCADVance:
  1285. @Help ("@ExePath\\install.hlp", "HelpCADVance", "EndCADVance")
  1286. @Goto MenuCADsys
  1287.  
  1288.  
  1289. MenuGenCADD:
  1290.  
  1291. @EnableF1(0)
  1292. @GetOutDrive
  1293.  @Suppress A
  1294.  @Suppress B
  1295.   @Cls
  1296.   @NameGenCADD @msgDDI
  1297.   @msgDrive
  1298. @EndOutDrive
  1299. @If (@Esc) @Goto MenuCADsys @Endif
  1300.  
  1301. @GetSubdir
  1302.  @Default = "\\GENERIC"
  1303.  @Cls
  1304.  @NameGenCADD @msgDDI
  1305.  @msgDir
  1306.  
  1307.  
  1308. @EndSubdir
  1309. @If (@Esc) @Goto MenuGenCADD @Endif
  1310.  
  1311. @ClearOption(1)
  1312. @ClearOption(2)
  1313. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1314.  @EnableF1(0)
  1315.  @GetOption @Cls
  1316.   @LocalWindow (10,39) 
  1317.   @NameGenCADD @msgDDI
  1318.   @OutDrive:@SubDir @msgDDNE
  1319.   @msgCont
  1320.  
  1321.   @Option 1 = "@Reenter"
  1322.   @Option 2 = "@Cont"
  1323.  @EndOption
  1324. @Endif
  1325.  
  1326. @If ((@Esc) || (1 [= @Option))
  1327.  @Goto MenuGenCADD
  1328. @Endif
  1329.  
  1330. @DefineDisk
  1331.  @Label = "Disk #1"
  1332.  @BeginLib FAHDRVVA.001 
  1333.  @F f1280l.vgd  @O @OutDrive:\@SubDir\*.*
  1334.  @EndLib 
  1335. @EndDisk
  1336.  
  1337.  
  1338. @Goto SetS3911
  1339.  
  1340. EndGenCADD:
  1341. @Help ("@ExePath\\install.hlp", "HelpGenCADD", "EndGenCADD")
  1342. @Goto MenuCADsys
  1343.  
  1344. MenuMicroCAD:
  1345.  
  1346. @ClearOption (2610) 
  1347. @ClearOption (2620)
  1348. @EnableF1(1)
  1349. @GetOption @Cls
  1350.  @NameMicroCAD @msgDDI
  1351.  @msgPSAV
  1352.  @Option 2610 = "MicroStation (Real Mode)"
  1353.  @Option 2620 = "MicroStation (Protected Mode)"
  1354. @EndOption
  1355.  
  1356. @If (@Esc)
  1357.  @Goto MenuCADsys
  1358. @ElseIf (@KeyF1)
  1359.  @Goto MenuMicroCADHelp
  1360. @Endif
  1361.  
  1362. InputDirMicroCAD:
  1363. @EnableF1(0)
  1364. @GetOutDrive
  1365.  @Suppress A
  1366.  @Suppress B
  1367.  @Cls
  1368.  @NameMicroCAD @msgDDI
  1369.  @msgDrive
  1370. @EndOutDrive
  1371. @If (@Esc) @Goto MenuMicroCAD @Endif
  1372.  
  1373. @GetSubdir
  1374.  @Default = "\\USTATION\\DRIVERS"
  1375.  @Cls
  1376.  @NameMicroCAD @msgDDI
  1377.  @msgDir
  1378.  
  1379.  
  1380. @EndSubdir
  1381. @If (@Esc) @Goto InputDirMicroCAD @Endif
  1382.  
  1383. @ClearOption(1)
  1384. @ClearOption(2)
  1385. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1386.  @EnableF1(0)
  1387.  @GetOption
  1388.   @LocalWindow (10,39)
  1389.   @Cls
  1390.   @NameMicroCAD @msgDDI
  1391.   @OutDrive:@SubDir @msgDDNE
  1392.   @msgCont
  1393.   @Option 1 = "@Reenter"
  1394.   @Option 2 = "@Cont"
  1395.  @EndOption
  1396. @Endif
  1397.  
  1398. @If ((@Esc) || (1 [= @Option))
  1399.  @Goto InputDirMicroCAD
  1400. @Endif
  1401.  
  1402. @DefineDisk
  1403.  @Label = "Disk #1"
  1404.  @BeginLib FAHDRVVA.001 
  1405.   @F mgls3.exe   @O @OutDrive:\@SubDir\*.* @Option 2610
  1406.   @F mgls3.mgl   @O @OutDrive:\@SubDir\*.* @Option 2610
  1407.   @F remove.exe  @O @OutDrive:\@SubDir\*.* @Option 2610
  1408.  
  1409.   @F mgl911.exp  @O @OutDrive:\@SubDir\*.* @Option 2620
  1410.   @F mgl911.ma   @O @OutDrive:\@SubDir\*.* @Option 2620
  1411.   @F mgl911.mgl  @O @OutDrive:\@SubDir\*.* @Option 2620 
  1412.  @EndLib 
  1413. @EndDisk
  1414.  
  1415. @Goto SetS3911
  1416.  
  1417. EndMicroCAD:
  1418.  
  1419. @If (2610 [= @Option)
  1420.  @Help ("@ExePath\\install.hlp", "HelpMicroCADr", "EndMicroCADr")
  1421. @ElseIf (2620 [= @Option)
  1422.  @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  1423. @EndIf   
  1424.  
  1425. @Goto MenuCADsys
  1426.  
  1427.  
  1428. MenuMicroCADHelp:
  1429.  
  1430. @If (2610 [= @Option)
  1431.  @Help ("@ExePath\\install.hlp", "HelpMicroCADr", "EndMicroCADr")
  1432. @ElseIf (2620 [= @Option)
  1433.  @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  1434. @EndIf   
  1435.  
  1436. @Goto MenuMicroCAD
  1437.  
  1438.  
  1439. MenuVersaCAD:
  1440.  
  1441. @EnableF1(1)
  1442. @ClearOption (2710)
  1443. @ClearOption (2750)
  1444. @GetOption @Cls
  1445.  @NameVersaCAD @msgDDI
  1446.  @msgPSAV
  1447.  @Option 2750 = "VersaCAD 386 (Protected Mode)"
  1448.  @Option 2710 = "VersaCAD Designer (Real Mode)"
  1449. @EndOption
  1450.  
  1451. @If (@Esc)
  1452.  @Goto MenuCADsys
  1453. @Elseif (@KeyF1)
  1454.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1455.  @Goto MenuVersaCAD
  1456. @Endif
  1457.  
  1458. InputDirVersaCAD:
  1459. @EnableF1(0)
  1460. @GetOutDrive
  1461.  @Suppress A
  1462.  @Suppress B
  1463.  @Cls
  1464.  @NameVersaCAD @msgDDI
  1465.  @msgDrive
  1466. @EndOutDrive
  1467. @If (@Esc) @Goto MenuVersaCAD @Endif
  1468.  
  1469. @GetSubdir
  1470.  @Default = "\\VCAD"
  1471.  @Cls
  1472.  @NameVersaCAD @msgDDI
  1473.  @msgDir
  1474.  
  1475.  
  1476. @EndSubdir
  1477. @If (@Esc) @Goto InputDirVersaCAD @Endif
  1478.  
  1479. @ClearOption(1)
  1480. @ClearOption(2)
  1481. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1482.  @EnableF1(0)
  1483.  @GetOption
  1484.  @LocalWindow (10,39)
  1485.  @Cls
  1486.   @NameVersaCAD @msgDDI
  1487.   @OutDrive:@SubDir @msgDDNE
  1488.   @msgCont
  1489.   @Option 1 = "@Reenter"
  1490.   @Option 2 = "@Cont"
  1491.  @EndOption
  1492. @Endif
  1493. @If ((@Esc) || (1 [= @Option))
  1494.  @Goto InputDirVersaCAD
  1495. @Endif
  1496.  
  1497. @DefineDisk
  1498.  @Label = "Disk #1"
  1499.  @BeginLib FAHDRVVA.001 
  1500.  @F remove.exe  @O @OutDrive:\@SubDir\*.*
  1501.  @F vc2_911.com @O @OutDrive:\@SubDir\*.* @Option 2710
  1502.  @F vcadreal.cfg  @O @OutDrive:\@SubDir\*.* @Option 2710
  1503.  @F vc3_911.com @O @OutDrive:\@SubDir\*.* @Option 2750
  1504.  @F vcad386.cfg @O @OutDrive:\@SubDir\*.* @Option 2750
  1505.  @F vcad386.bat @O @OutDrive:\*.* @Option 2750
  1506.  @EndLib 
  1507. @EndDisk
  1508.                   
  1509. @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1510. @Goto MenuCADsys
  1511.  
  1512. MenuWordProcess:
  1513.  
  1514. @ClearOption(5100)
  1515. @ClearOption(5200)
  1516. @EnableF1(1)
  1517. @GetOption
  1518. @Cls
  1519.  @NameWord @msgDDI
  1520.  @msgPSAA
  1521.  @Option 5100 = "@NameWP"
  1522.  @Option 5200 = "@NameMSWord"
  1523. @EndOption
  1524.  
  1525. @If (@Esc)
  1526.  @Goto MenuMain
  1527. @Elseif (@KeyF1)
  1528.  @Goto MenuWordHelp
  1529. @Elseif (5100 [= @Option)
  1530.  @Goto MenuWP
  1531. @Elseif (5200 [= @Option)
  1532.  @Goto MenuMSWord
  1533. @Endif
  1534.  
  1535.  
  1536. MenuWordHelp:
  1537.  
  1538. @If (5100 [= @Option)
  1539.  @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  1540. @Elseif (5200 [= @Option)
  1541.  @Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
  1542. @Endif
  1543.  
  1544. @Goto MenuWordProcess
  1545.  
  1546.  
  1547. MenuWP:
  1548.  
  1549. @EnableF1(0)
  1550. @GetOutDrive
  1551.  @Suppress A
  1552.  @Suppress B
  1553.   @Cls
  1554.   @NameWP @msgDDI
  1555.   @msgDrive
  1556. @EndOutDrive
  1557. @If (@Esc) @Goto MenuWordProcess @Endif
  1558.  
  1559. @GetSubdir
  1560.  @Default = "\\WP"
  1561.  @Cls
  1562.  @NameWP @msgDDI
  1563.  @msgDir
  1564.  
  1565.  
  1566. @EndSubdir
  1567. @If (@Esc) @Goto MenuWP @Endif
  1568.  
  1569. @ClearOption(1)
  1570. @ClearOption(2)
  1571. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1572.  @EnableF1(0)
  1573.  @GetOption @Cls
  1574.   @LocalWindow (10,39) 
  1575.   @NameWP @msgDDI
  1576.   @OutDrive:@SubDir @msgDDNE
  1577.   @msgCont
  1578.   @Option 1 = "@Reenter"
  1579.   @Option 2 = "@Cont"
  1580.  @EndOption
  1581. @Endif
  1582.  
  1583. @If ((@Esc) || (1 [= @Option))
  1584.  @Goto MenuWP
  1585. @Endif
  1586.  
  1587. @DefineDisk
  1588.  @Label = "Disk #1"
  1589.  @BeginLib FAHDRVVA.001 
  1590.  @F wpgraph.vrs @O @OutDrive:\@SubDir\*.* 
  1591.  @F wptext.vrs @O @OutDrive:\@SubDir\*.* 
  1592.  @EndLib 
  1593. @EndDisk
  1594.  
  1595. @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  1596. @Goto MenuWordProcess
  1597.  
  1598.  
  1599. MenuMSWord:
  1600.  
  1601. @EnableF1(0)
  1602. @GetOutDrive
  1603.  @Suppress A
  1604.  @Suppress B
  1605.   @Cls
  1606.   @NameMSWord @msgDDI
  1607.   @msgDrive
  1608. @EndOutDrive
  1609. @If (@Esc) @Goto MenuWordProcess @Endif
  1610.  
  1611. @GetSubdir
  1612.  @Default = "\\WORD"
  1613.  @Cls
  1614.  @NameMSWord @msgDDI
  1615.  @msgDir
  1616.  
  1617.  
  1618. @EndSubdir
  1619. @If (@Esc) @Goto MenuMSWord @Endif
  1620.  
  1621. @ClearOption(1)
  1622. @ClearOption(2)
  1623. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1624.  @EnableF1(0)
  1625.  @GetOption @Cls
  1626.   @LocalWindow (10,39) 
  1627.   @NameMSWord @msgDDI
  1628.   @OutDrive:@SubDir @msgDDNE
  1629.   @msgCont
  1630.   @Option 1 = "@Reenter"
  1631.   @Option 2 = "@Cont"
  1632.  @EndOption
  1633. @Endif
  1634.  
  1635. @If ((@Esc) || (1 [= @Option))
  1636.  @Goto MenuMSWord
  1637. @Endif
  1638.  
  1639. @DefineDisk
  1640.  @Label = "Disk #1"
  1641.  @BeginLib FAHDRVVA.001 
  1642.  @F screen.vid @O @OutDrive:\@SubDir\*.* 
  1643.  @EndLib 
  1644. @EndDisk
  1645.  
  1646. @Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
  1647. @Goto MenuWordProcess
  1648.  
  1649.  
  1650. SetS3911:
  1651.  
  1652. @ClearOption (0)
  1653. @ClearOption (1)
  1654. @ClearOption (2)
  1655. @ClearOption (3)
  1656. @ClearOption (4)
  1657. @ClearOption (5)
  1658. @ClearOption (7)
  1659. @EnableF1(0)
  1660. @GetOption
  1661.  @If (2400 [= @Option)
  1662.   @Cls
  1663.   @NameCADVance @msgDDI
  1664.   Please Select a Resolution:
  1665.  @Elseif (2500 [= @Option)
  1666.   @Cls
  1667.   @NameGenCADD @msgDDI
  1668.   Please Select a Resolution:
  1669.  @Elseif (2600 [= @Option)
  1670.   @Cls
  1671.   @NameMicroCAD @msgDDI
  1672.   Please Select a Resolution:
  1673.  @Endif
  1674.    @Option 4 = "1024 x 768,  256 colors"
  1675.    @Option 2 = "800  x 600,  256 colors"
  1676.    @Option 0 = "640  x 480,  256 colors"     
  1677.    @Option 7 = "1280 x 1024, 16  colors"
  1678.    @Option 5 = "1280 x 960,  16  colors"
  1679.    @Option 3 = "1024 x 768,  16  colors"
  1680.    @Option 1 = "800  x 600,  16  colors"
  1681. @EndOption
  1682.  
  1683. @If (@Esc)
  1684.  @Goto EndS3911
  1685. @Elseif (0 [= @Option)
  1686.  @Value(0)
  1687. @Elseif (1 [= @Option)
  1688.  @Value(1)
  1689. @Elseif (2 [= @Option)
  1690.  @Value(2)
  1691. @Elseif (3 [= @Option)
  1692.  @Value(3)
  1693. @Elseif (4 [= @Option)
  1694.  @Value(4)
  1695. @Elseif (5 [= @Option)
  1696.  @Value(5)
  1697. @Else
  1698.  @Value(7)
  1699. @Endif
  1700.  
  1701. @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "S31_911",
  1702.         "SET S31_911=@Value()", "REPLACE")
  1703.  
  1704. EndS3911:
  1705.  
  1706. @If (2400 [= @Option)
  1707.  @Goto EndCADVance
  1708. @Elseif (2500 [= @Option)
  1709.  @Goto EndGenCADD
  1710. @Elseif (2600 [= @Option)
  1711.  @Goto EndMicroCAD
  1712. @Else
  1713.  @Goto MenuCADsys
  1714. #Endif
  1715.  
  1716.  
  1717.  
  1718. MenuSample:
  1719. @ClearOption(9010)
  1720. @ClearOption(9020)
  1721. @ClearOption(9030)
  1722. @ClearOption(9040) 
  1723.  @EnableF1(1)
  1724.  @GetOption
  1725.  @Cls
  1726.  @LocalWindow (10,39)   
  1727.   @Option 9010 = "Copy files from Master Drive A: to a Formatted Floppy Drive A:"
  1728.   @Option 9020 = "Copy files from Master Drive A: to a Formatted Floppy Drive B:"
  1729.   @Option 9030 = "Copy files from Master Drive B: to a Formatted Floppy Drive A:"
  1730.   @Option 9040 = "Copy files from Master Drive B: to a Formatted Floppy Drive B:"
  1731.  
  1732.  @EndOption
  1733.  
  1734.  
  1735.  @If (@Esc)
  1736.      @Goto MenuMain
  1737.   @Elseif (@KeyF1)
  1738.      @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  1739.   @ElseIf (9010 [=@Option)
  1740.      @Goto MenuAA
  1741.   @ElseIf (9020 [=@Option)
  1742.      @Goto MenuBB
  1743.   @ElseIf (9030 [=@Option)
  1744.      @Goto MenuAA
  1745.   @ElseIf (9040 [=@Option)
  1746.      @Goto MenuBB
  1747. @endif
  1748. @Goto MenuSample
  1749.  
  1750.  
  1751. MenuAA:
  1752. @EnableF1(0)
  1753. @If (!@DriveExists(C))
  1754.     @Display
  1755.        This program requires a Hard Disk Drive to complete this copy.
  1756.  
  1757.       @Pause
  1758.     @Goto MenuMain
  1759.     @EndDisplay
  1760. @EndIf
  1761. @DefineDisk 
  1762.  @Label = "Disk #1"
  1763.  @BeginLib FAHDRVVA.001 
  1764.   @F ovnplay.exe   @O C:\Fahrenva\temp\*.*  
  1765.   @F speaker.drv   @O C:\Fahrenva\temp\*.*  
  1766.   @F disk.id       @O C:\Fahrenva\temp\*.*  
  1767.   @F installc.dat  @O C:\Fahrenva\temp\install.dat  
  1768.   @F installc.hlp  @O C:\Fahrenva\temp\install.hlp  
  1769.   @F copya.bat     @O C:\Fahrenva\temp\MAKEDISK.BAT  
  1770.  
  1771.  @EndLib
  1772.  @F Finstall.exe   @O C:\Fahrenva\temp\install.exe 
  1773. @EndDisk
  1774.  
  1775. @Display                    
  1776.  @Cls
  1777.   @System "C:\\Fahrenva\\temp\\makedisk.bat"
  1778.  @Cls
  1779.  @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  1780.  @Cls
  1781.  
  1782.  
  1783.  
  1784.  
  1785.  
  1786.  
  1787.  Voice Notes Playback Diskette Copy Now Completed....
  1788.     
  1789.     To repeat, just type "MAKEDISK" from the \FAHRENVA\TEMP Subdirectory.
  1790.  
  1791.            Press any key to return to the Main Menu.
  1792.  
  1793.  
  1794.  
  1795.  
  1796.  
  1797.   @Pause
  1798. @EndDisplay
  1799.  
  1800. @Goto MenuMain
  1801.  
  1802.  
  1803. MenuBB:
  1804. @EnableF1(0)
  1805. @If (!@DriveExists(C))
  1806.     @Display
  1807.        This program requires a Hard Disk Drive to complete this copy.
  1808.  
  1809.       @Pause
  1810.     @Goto MenuMain
  1811.     @EndDisplay
  1812. @EndIf
  1813.  
  1814. @DefineDisk 
  1815.  @Label = "Disk #1"
  1816.  @BeginLib FAHDRVVA.001 
  1817.   @F ovnplay.exe   @O C:\Fahrenva\temp\*.*  
  1818.   @F speaker.drv   @O C:\Fahrenva\temp\*.*  
  1819.   @F disk.id       @O C:\Fahrenva\temp\*.*  
  1820.   @F installc.dat  @O C:\Fahrenva\temp\install.dat  
  1821.   @F installc.hlp  @O C:\Fahrenva\temp\install.hlp  
  1822.   @F copyb.bat     @O C:\Fahrenva\temp\MAKEDISK.BAT  
  1823.  
  1824.  @EndLib
  1825.  @F finstall.exe   @O C:\fahrenva\temp\install.exe 
  1826. @EndDisk
  1827.  
  1828. @Display                    
  1829.  @Cls
  1830.   @System "C:\\fahrenva\\temp\\makedisk.bat"
  1831.  @Cls
  1832.  @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  1833.  @Cls
  1834.  
  1835.  
  1836.  
  1837.  
  1838.  
  1839.  
  1840.  Voice Notes Playback Diskette Copy Now Completed....
  1841.     
  1842.     To repeat, just type "MAKEDISK" from the \FAHRENVA\TEMP Subdirectory.
  1843.  
  1844.            Press any key to return to the Main Menu.
  1845.  
  1846.  
  1847.  
  1848.  
  1849.  
  1850.   @Pause
  1851. @EndDisplay
  1852.  
  1853. @Goto MenuMain
  1854.